 create or replace package pack1 as
 procedure proc1( n in number);
 end pack1;
______________________________________________________

 create or replace package body pack1 as
 procedure proc1( n in number) is
 x number;
 begin
 x := 2*(n*n);
 print(x);
 end;
 end;